home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / telecomm / bbs / tbbs093.lha / Menu / MsgMenu.dat < prev    next >
Text File  |  1994-02-24  |  8KB  |  233 lines
  1. /* Message Menu */
  2.  
  3. MenuName "Messages"
  4.  
  5. MenuText "Text/MessageMenu"
  6.  
  7. Prompt "(\(GetTimeLeft())) \(27)[36m\(GetMsgAreaName(GetMsgArea())): \(27)[0m"
  8.  
  9. Unknown "\(27)[36mInvalid command: \(27)[0m'%s'"
  10.  
  11. Command "?" {
  12.     rexx("SendASCII Text/MessageMenu.txt");
  13. };
  14.  
  15. Command "post" (N:1) {
  16.     rexx("LogEntry Posting message to \(GetMsgAreaName(GetMsgArea()))");
  17.     rexx("WriteMsg");
  18. };
  19.  
  20. Command "next" (N:1) {
  21.     rexx("LogEntry Reading messages");
  22.     rexx("ReadNext");
  23. };
  24.  
  25. Command "" {
  26.     rexx("LogEntry Reading messages");
  27.     rexx("ReadNext");
  28. };
  29.  
  30. Command "area" (N:1) {
  31.     if(arg(1) == "") rexx("SelectSIGArea");
  32.     else rexx("SelectSIGArea \(arg(1))");
  33. };
  34.  
  35. Command "read" (N:1) {
  36.     if(arg(1) == "") $from = AskInput("\(27)[32mStart reading from: \(27)[0m", GetHighRead(GetMsgArea()), 10, "NUMERIC");
  37.     else $from = arg(1);
  38.     rexx("LogEntry Reading messages");
  39.     rexx("ReadFrom \($from)");
  40. };
  41.  
  42. Command "find" (N:1) {
  43.     $start = GetLowMsg(GetMsgArea());
  44.     $end = GetHighMsg(GetMsgArea());
  45.     if(arg(1) == "") $str = AskInput("\(27)[32mEnter search string: \(27)[0m", "", 255);
  46.     else {
  47.         $usage = 0;
  48.         $str = arg(1);
  49.         $an = 2;
  50.         while(str(arg($an), 1, 1) == "-") {
  51.             $id = lower(str(arg($an), 2, 1));
  52.             if($id == "n") $start = GetHighRead(GetMsgArea()) + 1;
  53.             else if($id == "s") $start = str(arg($an), 3, len(arg($an)) - 2);
  54.             else if($id == "e") $end = str(arg($an), 3, len(arg($an)) - 2);
  55.             else {
  56.                 $usage = 1;
  57.                 rexx("SendModem \(27)[33mUsage: \(27)[0mf\(27)[36mind [<string> [-(n|s#|e#)]]\(13)\(10)\(27)[0m");
  58.                 break;
  59.             }
  60.             $an = $an + 1;
  61.         }
  62.         if($usage) break;
  63.     }
  64.     if($str != "") {
  65.         $str = SearchMessages($start, $end, $str);
  66.         if($str != "") {
  67.             if(GetYesNo("\(13)\(10)\(27)[32mWould you like these messages marked? \(27)[0m", 1, 1)) {
  68.                 while($str != "") {
  69.                     $ln = split($str, " ");
  70.                     rexx("MarkMsg \(GetMsgArea()) \(str($str, 1, $ln))");
  71.                     $str = str($str, $ln + 1, len($str) - ($ln + 1));
  72.                 }
  73.             }
  74.             rexx("SendModem \(13)\(10)");
  75.         }
  76.     } else rexx("SendModem \(13)\(10)\(27)[31mOperation cancelled\(13)\(10)\(27)[0m");
  77. };
  78.  
  79. Command "list" (N:1) {
  80.     $start = GetLowMsg(GetMsgArea());
  81.     $end = GetHighMsg(GetMsgArea());
  82.     if(arg(1) != "") {
  83.         $usage = 0;
  84.         $an = 1;
  85.         while(str(arg($an), 1, 1) == "-") {
  86.             $id = lower(str(arg($an), 2, 1));
  87.             if($id == "n") $start = GetHighRead(GetMsgArea()) + 1;
  88.             else if($id == "s") $start = str(arg($an), 3, len(arg($an)) - 2);
  89.             else if($id == "e") $end = str(arg($an), 3, len(arg($an)) - 2);
  90.             else {
  91.                 $usage = 1;
  92.                 rexx("SendModem \(27)[33mUsage: \(27)[0ml\(27)[36mist [-(n|s#|e#)]\(13)\(10)\(27)[0m");
  93.                 break;
  94.             }
  95.             $an = $an + 1;
  96.         }
  97.         if($usage) break;
  98.     }
  99.     rexx("ListMessages \($start) \($end)");
  100. };
  101.  
  102. Command "highread" (N:1) {
  103.     $area = GetMsgArea();
  104.     $val = "";
  105.     $an = 1;
  106.     while(arg($an) != "") {
  107.         if(lower(str(arg($an), 1, 2)) == "-a") $area = str(arg($an), 3, len(arg($an)) - 2);
  108.         else $val = arg($an);
  109.         $an = $an + 1;
  110.     }
  111.     if($val == "") $val = AskInput("\(27)[32mEnter high read for area #\($area): \(27)[0m", GetHighRead($area), 10, "NUMERIC");
  112.     if($val != "") rexx("SetHighRead \($area) \($val)");
  113. };
  114.  
  115. Command "mark" (N:1) {
  116.     if(arg(1) != "") {
  117.         $start = 0;
  118.         $end = GetHighMsg(GetMsgArea());
  119.         $an = 1;
  120.         $usage = 0;
  121.         while(str(arg($an), 1, 1) == "-") {
  122.             $id = lower(str(arg($an), 2, 1));
  123.             if($id == "s") $start = str(arg($an), 3, len(arg($an)) - 2);
  124.             else if($id == "e") $end = str(arg($an), 3, len(arg($an)) - 2);
  125.             else if($id == "n") $start = GetHighRead(GetMsgArea());
  126.             else {
  127.                 $usage = 1;
  128.                 rexx("SendModem \(27)[33mUsage: \(27)[0mm\(27)[36mark [-(s#|e#|n)] [#] ...\(13)\(10)\(27)[0m");
  129.                 break;
  130.             }
  131.             $an = $an + 1;
  132.         }
  133.         if($usage) break;
  134.         if($start) {
  135.             $msg = $start;
  136.             while($msg <= $end) {
  137.                 rexx("MarkMsg \(GetMsgArea()) \($msg)");
  138.                 $msg = $msg + 1;
  139.             }
  140.         }
  141.         while(arg($an) != "") {
  142.             rexx("MarkMsg \(GetMsgArea()) \(arg($an))");
  143.             $an = $an + 1;
  144.         }
  145.     } else rexx("MarkMsg \(GetMsgArea()) \(AskInput("\(27)[32mEnter message # to mark: \(27)[0m", "", 10, "NUMERIC"))");
  146. };
  147.  
  148. Command "rmarked" (N:2) {
  149.     rexx("LogEntry Reading marked messages");
  150.     rexx("ReadMarked");
  151. };
  152.  
  153. Command "join" (N:1) {
  154.     rexx("LogEntry Joining message areas");
  155.     if(arg(1) != "") {
  156.         if(lower(str(arg(1), 1, 2)) == "-a") {
  157.             $area = 1;
  158.             while($area <= Con_MsgAreas()) {
  159.                 if(GetAreaMode($area)) rexx("SendModem \(27)[31mYou are already a member of \(27)[0m(\($area)) \(27)[35m\(GetMsgAreaName($area))\(27)[0m\(13)\(10)");
  160.                 else {
  161.                     rexx("SetAreaMode \($area) 1");
  162.                     if(GetAreaMode($area)) rexx("SendModem \(27)[36mYou are now a member of \(27)[0m(\($area)) \(27)[35m\(GetMsgAreaName($area))\(27)[0m\(13)\(10)");
  163.                 }
  164.                 $area = $area + 1;
  165.             }
  166.         } else {
  167.             $an = 1;
  168.             while(arg($an) != "") {
  169.                 $area = SIGtoReal(arg($an));
  170.                 if($area > Con_MsgAreas()) rexx("SendModem \(27)[31mArea number out of range: \(27)[0m\($area)\(13)\(10)");
  171.                 else {
  172.                     if(GetAreaMode($area)) rexx("SendModem \(27)[31mYou are already a member of \(27)[0m(\($area)) \(27)[35m\(GetMsgAreaName($area))\(27)[0m\(13)\(10)");
  173.                     else {
  174.                         rexx("SetAreaMode \($area) 1");
  175.                         if(GetAreaMode($area)) rexx("SendModem \(27)[36mYou are now a member of \(27)[0m(\($area)) \(27)[35m\(GetMsgAreaName($area))\(27)[0m\(13)\(10)");
  176.                     }
  177.                 }
  178.                 $an = $an + 1;
  179.             }
  180.         }
  181.     } else {
  182.         $area = GetMsgArea();
  183.         if(GetAreaMode($area)) rexx("SendModem \(27)[31mYou are already a member of \(27)[0m(\($area)) \(27)[35m\(GetMsgAreaName($area))\(27)[0m\(13)\(10)");
  184.         else {
  185.             rexx("SetAreaMode \($area) 1");
  186.             if(GetAreaMode($area)) rexx("SendModem \(27)[36mYou are now a member of \(27)[0m(\($area)) \(27)[35m\(GetMsgAreaName($area))\(27)[0m\(13)\(10)");
  187.         }
  188.     }
  189. };
  190.  
  191. Command "drop" (N:2) {
  192.     rexx("LogEntry Unjoining message areas");
  193.     if(arg(1) != "") {
  194.         if(lower(str(arg(1), 1, 2)) == "-a") {
  195.             $area = 1;
  196.             while($area <= Con_MsgAreas()) {
  197.                 if(GetAreaMode($area)) {
  198.                     rexx("SetAreaMode \($area) 0");
  199.                     rexx("SendModem \(27)[36mYou are no longer a member of \(27)[0m(\($area)) \(27)[35m\(GetMsgAreaName($area))\(27)[0m\(13)\(10)");
  200.                 }
  201.                 $area = $area + 1;
  202.             }
  203.         } else {
  204.             $an = 1;
  205.             while(arg($an) != "") {
  206.                 $area = SIGtoReal(arg($an));
  207.                 if($area > Con_MsgAreas()) rexx("SendModem \(27)[31mArea number out of range: \(27)[0m\($area)\(13)\(10)");
  208.                 else {
  209.                     if(GetAreaMode($area)) {
  210.                         rexx("SetAreaMode \($area) 0");
  211.                         rexx("SendModem \(27)[36mYou are no longer a member of \(27)[0m(\($area)) \(27)[35m\(GetMsgAreaName($area))\(27)[0m\(13)\(10)");
  212.                     }
  213.                 }
  214.                 $an = $an + 1;
  215.             }
  216.         }
  217.     } else {
  218.         $area = GetMsgArea();
  219.         if(GetAreaMode($area)) {
  220.             rexx("SetAreaMode \($area) 0");
  221.             rexx("SendModem \(27)[36mYou are no longer a member of \(27)[0m(\($area)) \(27)[35m\(GetMsgAreaName($area))\(27)[0m\(13)\(10)");
  222.         }
  223.     }
  224. };
  225.  
  226. Command "quit" (N:1) {
  227.     menu("MainMenu.menu");
  228. };
  229.  
  230. Command "move" {
  231.     if(GetMask() & 0xffffffff) rexx("MoveMsg \(arg(1)) \(arg(2))");
  232. };
  233.